home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filelist / filepull.frm < prev    next >
Text File  |  1995-09-07  |  1KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form FilePull 
  3.    BackColor       =   &H00FFFFC0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "FilePull"
  6.    ClientHeight    =   1470
  7.    ClientLeft      =   2325
  8.    ClientTop       =   1560
  9.    ClientWidth     =   2820
  10.    ControlBox      =   0   'False
  11.    Height          =   1875
  12.    Left            =   2265
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1470
  18.    ScaleWidth      =   2820
  19.    Top             =   1215
  20.    Width           =   2940
  21.    Begin PictureBox FileList 
  22.       BackColor       =   &H000000FF&
  23.       Height          =   1000
  24.       Left            =   0
  25.       ScaleHeight     =   975
  26.       ScaleWidth      =   975
  27.       TabIndex        =   0
  28.       Top             =   0
  29.       Width           =   1000
  30.    End
  31. End
  32. Sub FileList_KeyDown (KeyCode As Integer, Shift As Integer)
  33.  
  34.     If KeyCode = KEY_RETURN Then
  35.         If FileList.ListSelect(0) <> -1 Then
  36.             a$ = FileList.ListArray(FileList.ListSelect(0))
  37.             SetReturn a$
  38.         End If
  39.         Unload FilePull
  40.     End If
  41.  
  42.  
  43. End Sub
  44.  
  45. Sub Form_GotFocus ()
  46.     FileList.SetFocus
  47. End Sub
  48.  
  49.